perm filename GENX[1,MUS] blob
sn#071041 filedate 1973-11-02 generic text, type T, neo UTF8
00300 SRT 10000; SET SAMPLING RATE TO 10000
00400 INS 0 1; INSTRUMENT 1
00500 OSC P4 P5 B2 F1;
00600 OSC B2 P3 B2 F2;
00700 OUT B2 B1/END; ALL PARAM NUMS ARE 2 LESS THAN IN BOOK!
01400 GEN 0 1 1 .01 0 .99 25;
01500 .99 400 0 511*; GEN INPUT MUST ALWAYS START NEW LINE!
01600 GEN 0 2 2 .7 .5 0 .4 4*; F2 , 3 HARMONICS (1,2,4)
01700 GEN 0 3 3 1 -1*; F3 PUTS LINE FROM 1 TO -1 IN 511 STEPS
01800
01900 SCORE ; THIS WORD MUST!! APPEAR AFTER INSTS AND GENS ARE SET UP.
02000 BLANK CARDS MAY COME INSTEAD OF INST NAMES OR
02100 PARAM #S AFTER THIS POINT.
02200 BUZZ ; INSTRUMENT 1=BUZZ, BEGIN TIME=0",
02300 DURATION=# OF NOTES IN 'NOTES' (P3).
02400 P2 RHY; RHY=NEXT ENTRIES WILL BE IN TERMS OF MUSICAL RHYTHM.
02500 8 X 6/FINE*;
03000 P3 A4;
03100 P4 1000/END;
03200 DUM1 GEN 0 1 6;
03300 P2 P2/P3 2/P4 2/P5 NUM/1/.5/.2*; P5=1ST HARM.
03400 P6 NUM/0/.5/.3*/P7 NUM/0/.2/.4*/P8 RLIST/0 0/0 .6/.2 .3*;P8=4TH HARM
03500 P9 NUM/0/0/.5*/P10 0/P11 0/P12 0/P13 .7 0 0 .3 0 1/P14 8/END;
03550 ;8 HARMONICS
03600 RUN;